How Many Bugs in a Box/How Many Bugs in a Box.cdr/bugs/juicebar/00780.ls

Text File | 1995-04-07 | 413 b | 16 lines

on pressbutton whichsprite, whichcast
  set oldcast to the castNum of sprite whichsprite
  set whichcast to the number of cast whichcast
  if whichcast < 0 then
    exit
  end if
  set the castNum of sprite whichsprite to whichcast
  updateStage()
  startTimer()
  repeat while (the timer < 5) or the stillDown
    do("nothing")
  end repeat
  set the castNum of sprite whichsprite to oldcast
  updateStage()
end